home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Win9x File System 1.xpl < prev    next >
Text File  |  2001-05-04  |  3KB  |  86 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="5"
  4. "UIPATH"="System\File System\Windows 9x/ME Options\Performance"
  5. "NAME"="File Allocation Cache"
  6. "VERSION"="2.23"
  7. "OSVERSION"="10101"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Default: 512 kB"
  10. "TEXT 2"="1024 kB (1 MB)"
  11. "TEXT 3"="2048 kB (2 MB)"
  12. "TEXT 4"="3072 kB (3 MB)"
  13. "TEXT 5"="4096 kB (4 MB)"
  14. "DESCRIPTION 1"="Disk fragmentation occurs inherently in Windows 9x and most frequently accessed files "break up" spanning across non-sequential clusters, especially over long periods of time."
  15. "DESCRIPTION 2"="But you can limit fragmentation by increasing the free cluster size Windows 9x looks for when storing files on disk, thus decreasing the time the System Agent (Task Scheduler) "Low disk notification" and "Maintenance disk cleanup" and the Maintenance Wizard tools take for tuning up your system, by forcing Windows to ignore larger amounts of fragmented disk space, and to avoid splitting larger files the same time."
  16. "DESCRIPTION 3"="If you have any newer monster multi-GigaByte size hard disk(s), you may want to set this value to "high": 2048 - 4096."
  17. "DESCRIPTION 4"="If you don't work frequently with multi-MegaByte size files, you may want to set it to "low": 512 - 2048."
  18. "COMMENT 1"=" "
  19. "COMMENT 2"="Thanks to AXCEL216 (http://users.aol.com/axcel216/) for allowing us to rip his description and for this great option."
  20. "COMMENT 3"="Thanks also to CptSiskoX for his help!"
  21. "AUTHOR"="Xteq Systems"
  22. "CONTACTURL"="http://www.xteq.com"
  23. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  24.  
  25. 'Declaration of some constants
  26. sP="HKEY_LOCAL_MACHINE\System\CurrentControlSet\control\FileSystem\ContigFileAllocSize" 'DW:512
  27.  
  28. 'Called when the Plugin is started
  29. SUB Plugin_Initialize
  30.     i=RegReadValue(sP)
  31.     bFound=false
  32.  
  33.     if i=1024 then
  34.        SetUIElement 2,true
  35.        bFound=true
  36.     end if
  37.     if i=2048 then
  38.        SetUIElement 3,true
  39.        bFound=true
  40.     end if
  41.     if i=3072 then
  42.        SetUIElement 4,true
  43.        bFound=true
  44.     end if
  45.     if i=4096 then
  46.        SetUIElement 5,true
  47.        bFound=true
  48.     end if
  49.  
  50.     'check default value
  51.     if i=512 or bFound=false then
  52.        SetUIElement 1,true
  53.     end if    
  54.  
  55. END SUB
  56.  
  57. 'Called when the Plugin should validate the Data the user has entered
  58. SUB Plugin_CheckData(ElementIndex)
  59. END SUB
  60.  
  61. 'Called when the Plugin should apply the changes
  62. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  63.  i=512 'default is 512
  64.  
  65.  if GetUIElement(2)=true then i=1024
  66.  if GetUIElement(3)=true then i=2048
  67.  if GetUIElement(4)=true then i=3072
  68.  if GetUIElement(5)=true then i=4096
  69.  
  70.  if i<>512 then
  71.     Call RegWriteValue(sp,i,2)
  72.  else 
  73.     s=RegReadValue(sP)
  74.     if IsEmpty(s)=false then
  75.        Call RegDeleteValue(sP)
  76.     end if
  77.  end if
  78.  
  79.  
  80.  Call Restart()
  81. END SUB
  82.  
  83. 'Called when the Plugin is about to be removed from memory
  84. SUB Plugin_Terminate
  85. END SUB
  86.